home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ Registry Options 1.xpl < prev    next >
Text File  |  2002-11-03  |  1KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="System\Security\Disabled Features"
  5. "UIPATH 2"="Program Options\Built in Windows Apps\RegEdit"
  6. "NAME"="Regedit.exe Enabled"
  7. "VERSION"="1.13"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Allow starting of RegEdit.EXE"
  10. "DESCRIPTION 1"="If this option is set, the current user is no longer allowed to start regedit.exe or regedt32.exe."
  11. "DESCRIPTION 2"="In the case a user tries to execute a registry-utility (NOT X-Setup ;-), a message will be displayed that this feature has been disabled."
  12. "DESCRIPTION 3"="Be really careful with this option!!!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19. 'Only for Win95???? 
  20. 'sPath="HKUS\.Default\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
  21.  
  22. 'Works on NT 4 sp3 and Win 95 OSR2
  23. sPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
  24.  
  25. Sub Plugin_Initialize 
  26.  i=RegReadValue(sPath)
  27.  if i=0 or IsEmpty(i) then
  28.     Call SetUIElement(1,true) 
  29.  end if  
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  b=GetUIElement(1)
  37.  if b=false then
  38.     Call RegWriteValue(sPath,1,2) 
  39.  else
  40.     if RegValueExists(sPath) then Call RegDeleteValue(sPath)
  41.  end if
  42. End Sub
  43.  
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.  
  48.  
  49.  
  50.